perm filename PQR.PRF[257,JMC] blob
sn#037284 filedate 1973-04-24 generic text, type T, neo UTF8
1 (isprop(p)∧(isprop(q)∧isprop(r)))⊃isprop(mkcond(p,q,r)) --- ∀E condsyn5 p,q,r
2 isprop(p)⊃iscond(mkcond(p,q,r)) --- ∀E condsyn0 p,q,r
3 isprop(mkcond(p,q,r))⊃iscond(mkcond(mkcond(p,q,r),a,b)) --- ∀E condsyn0 mkcond(p,q,r),a,b
4 isprop(p)⊃iscond(mkcond(p,mkcond(q,a,b),mkcond(r,a,b))) --- ∀E condsyn0 p,mkcond(q,a,b),mkcond(r,a,b)
5 s1(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))=p --- ∀E condsyn1 p,mkcond(q,a,b),mkcond(r,a,b)
6 s2(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))=mkcond(q,a,b) --- ∀E condsyn2 p,mkcond(q,a,b),mkcond(r,a,b)
7 s3(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))=mkcond(r,a,b) --- ∀E condsyn3 p,mkcond(q,a,b),mkcond(r,a,b)
8 s1(mkcond(p,q,r))=p --- ∀E condsyn1 p,q,r
9 s2(mkcond(p,q,r))=q --- ∀E condsyn2 p,q,r
10 s3(mkcond(p,q,r))=r --- ∀E condsyn3 p,q,r
11 s1(mkcond(mkcond(p,q,r),a,b))=mkcond(p,q,r) --- ∀E condsyn1 mkcond(p,q,r),a,b
12 (iscond(mkcond(p,q,r))∧value(s1(mkcond(p,q,r)))=T)⊃value(mkcond(p,q,r))=value(s2(mkcond(p,q,r))) --- ∀E co~
ndval0 mkcond(p,q,r)
13 (iscond(mkcond(p,q,r))∧value(s1(mkcond(p,q,r)))=F)⊃value(mkcond(p,q,r))=value(s3(mkcond(p,q,r))) --- ∀E co~
ndval1 mkcond(p,q,r)
14 (iscond(mkcond(p,q,r))∧value(s1(mkcond(p,q,r)))=U)⊃value(mkcond(p,q,r))=U --- ∀E condval2 mkcond(p,q,r)
15 (iscond(mkcond(mkcond(p,q,r),a,b))∧value(s1(mkcond(mkcond(p,q,r),a,b)))=T)⊃value(mkcond(mkcond(p,q,r),a,b))=~
value(s2(mkcond(mkcond(p,q,r),a,b))) --- ∀E condval0 mkcond(mkcond(p,q,r),a,b)
16 (iscond(mkcond(mkcond(p,q,r),a,b))∧value(s1(mkcond(mkcond(p,q,r),a,b)))=F)⊃value(mkcond(mkcond(p,q,r),a,b))=~
value(s3(mkcond(mkcond(p,q,r),a,b))) --- ∀E condval1 mkcond(mkcond(p,q,r),a,b)
17 (iscond(mkcond(mkcond(p,q,r),a,b))∧value(s1(mkcond(mkcond(p,q,r),a,b)))=U)⊃value(mkcond(mkcond(p,q,r),a,b))=~
U --- ∀E condval2 mkcond(mkcond(p,q,r),a,b)
18 (iscond(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))∧value(s1(mkcond(p,mkcond(q,a,b),mkcond(r,a,b))))=T)⊃value(mkc~
ond(p,mkcond(q,a,b),mkcond(r,a,b)))=value(s2(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))) --- ∀E condval0 mkcond(p,~
mkcond(q,a,b),mkcond(r,a,b))
19 (iscond(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))∧value(s1(mkcond(p,mkcond(q,a,b),mkcond(r,a,b))))=F)⊃value(mkc~
ond(p,mkcond(q,a,b),mkcond(r,a,b)))=value(s3(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))) --- ∀E condval1 mkcond(p,~
mkcond(q,a,b),mkcond(r,a,b))
20 (iscond(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))∧value(s1(mkcond(p,mkcond(q,a,b),mkcond(r,a,b))))=U)⊃value(mkc~
ond(p,mkcond(q,a,b),mkcond(r,a,b)))=U --- ∀E condval2 mkcond(p,mkcond(q,a,b),mkcond(r,a,b))
21 isprop(p)⊃(value(p)=T∨(value(p)=F∨value(p)=U)) --- ∀E condtri1 p
22 (iscond(mkcond(p,q,r))∧value(p)=T)⊃value(mkcond(p,q,r))=value(s2(mkcond(p,q,r))) --- SUBST 8 IN 12
23 (iscond(mkcond(p,q,r))∧value(p)=T)⊃value(mkcond(p,q,r))=value(q) --- SUBST 9 IN 22
24 (iscond(mkcond(p,q,r))∧value(p)=F)⊃value(mkcond(p,q,r))=value(s3(mkcond(p,q,r))) --- SUBST 8 IN 13
25 (iscond(mkcond(p,q,r))∧value(p)=F)⊃value(mkcond(p,q,r))=value(r) --- SUBST 10 IN 24
26 (iscond(mkcond(p,q,r))∧value(p)=U)⊃value(mkcond(p,q,r))=U --- SUBST 8 IN 14
27 (iscond(mkcond(mkcond(p,q,r),a,b))∧value(mkcond(p,q,r))=T)⊃value(mkcond(mkcond(p,q,r),a,b))=value(s2(mkcond(~
mkcond(p,q,r),a,b))) --- SUBST 11 IN 15
28 s2(mkcond(mkcond(p,q,r),a,b))=a --- ∀E condsyn2 mkcond(p,q,r),a,b
29 (iscond(mkcond(mkcond(p,q,r),a,b))∧value(mkcond(p,q,r))=T)⊃value(mkcond(mkcond(p,q,r),a,b))=value(a) --- S~
UBST 28 IN 27
30 (iscond(mkcond(mkcond(p,q,r),a,b))∧value(mkcond(p,q,r))=F)⊃value(mkcond(mkcond(p,q,r),a,b))=value(s3(mkcond(~
mkcond(p,q,r),a,b))) --- SUBST 11 IN 16
31 s3(mkcond(mkcond(p,q,r),a,b))=b --- ∀E condsyn3 mkcond(p,q,r),a,b
32 (iscond(mkcond(mkcond(p,q,r),a,b))∧value(mkcond(p,q,r))=F)⊃value(mkcond(mkcond(p,q,r),a,b))=value(b) --- S~
UBST 31 IN 30
33 (iscond(mkcond(mkcond(p,q,r),a,b))∧value(mkcond(p,q,r))=U)⊃value(mkcond(mkcond(p,q,r),a,b))=U --- SUBST 11~
IN 17
34 (iscond(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))∧value(p)=T)⊃value(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))=valu~
e(s2(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))) --- SUBST 5 IN 18
35 (iscond(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))∧value(p)=T)⊃value(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))=valu~
e(mkcond(q,a,b)) --- SUBST 6 IN 34
36 (iscond(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))∧value(p)=F)⊃value(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))=valu~
e(s3(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))) --- SUBST 5 IN 19
37 (iscond(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))∧value(p)=F)⊃value(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))=valu~
e(mkcond(r,a,b)) --- SUBST 7 IN 36
38 (iscond(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))∧value(p)=U)⊃value(mkcond(p,mkcond(q,a,b),mkcond(r,a,b)))=U ~
--- SUBST 5 IN 20
39 isprop(q)⊃iscond(mkcond(q,a,b)) --- ∀E condsyn0 q,a,b
40 s1(mkcond(q,a,b))=q --- ∀E condsyn1 q,a,b
41 s2(mkcond(q,a,b))=a --- ∀E condsyn2 q,a,b
42 s3(mkcond(q,a,b))=b --- ∀E condsyn3 q,a,b
43 isprop(r)⊃iscond(mkcond(r,a,b)) --- ∀E condsyn0 r,a,b
44 s1(mkcond(r,a,b))=r --- ∀E condsyn1 r,a,b
45 s2(mkcond(r,a,b))=a --- ∀E condsyn2 r,a,b
46 s3(mkcond(r,a,b))=b --- ∀E condsyn3 r,a,b
47 (iscond(mkcond(q,a,b))∧value(s1(mkcond(q,a,b)))=T)⊃value(mkcond(q,a,b))=value(s2(mkcond(q,a,b))) --- ∀E co~
ndval0 mkcond(q,a,b)
48 (iscond(mkcond(q,a,b))∧value(s1(mkcond(q,a,b)))=F)⊃value(mkcond(q,a,b))=value(s3(mkcond(q,a,b))) --- ∀E co~
ndval1 mkcond(q,a,b)
49 (iscond(mkcond(q,a,b))∧value(s1(mkcond(q,a,b)))=U)⊃value(mkcond(q,a,b))=U --- ∀E condval2 mkcond(q,a,b)
50 (iscond(mkcond(r,a,b))∧value(s1(mkcond(r,a,b)))=T)⊃value(mkcond(r,a,b))=value(s2(mkcond(r,a,b))) --- ∀E co~
ndval0 mkcond(r,a,b)
51 (iscond(mkcond(r,a,b))∧value(s1(mkcond(r,a,b)))=F)⊃value(mkcond(r,a,b))=value(s3(mkcond(r,a,b))) --- ∀E co~
ndval1 mkcond(r,a,b)
52 (iscond(mkcond(r,a,b))∧value(s1(mkcond(r,a,b)))=U)⊃value(mkcond(r,a,b))=U --- ∀E condval2 mkcond(r,a,b)
53 (iscond(mkcond(q,a,b))∧value(s1(mkcond(q,a,b)))=T)⊃value(mkcond(q,a,b))=value(a) --- SUBST 41 IN 47
54 (iscond(mkcond(q,a,b))∧value(q)=T)⊃value(mkcond(q,a,b))=value(a) --- SUBST 40 IN 53
55 (iscond(mkcond(q,a,b))∧value(q)=F)⊃value(mkcond(q,a,b))=value(s3(mkcond(q,a,b))) --- SUBST 40 IN 48
56 (iscond(mkcond(q,a,b))∧value(q)=F)⊃value(mkcond(q,a,b))=value(b) --- SUBST 42 IN 55
57 (iscond(mkcond(q,a,b))∧value(q)=U)⊃value(mkcond(q,a,b))=U --- SUBST 40 IN 49
58 (iscond(mkcond(r,a,b))∧value(r)=T)⊃value(mkcond(r,a,b))=value(s2(mkcond(r,a,b))) --- SUBST 44 IN 50
59 (iscond(mkcond(r,a,b))∧value(r)=T)⊃value(mkcond(r,a,b))=value(a) --- SUBST 45 IN 58
60 (iscond(mkcond(r,a,b))∧value(r)=F)⊃value(mkcond(r,a,b))=value(s3(mkcond(r,a,b))) --- SUBST 44 IN 51
61 (iscond(mkcond(r,a,b))∧value(r)=F)⊃value(mkcond(r,a,b))=value(b) --- SUBST 46 IN 60
62 (iscond(mkcond(r,a,b))∧value(r)=U)⊃value(mkcond(r,a,b))=U --- SUBST 44 IN 52